home *** CD-ROM | disk | FTP | other *** search
/ Sky at Night 2009 October / SAN CD 10-2009 CD-ROM 53.iso / pc / system / gdbPopup.dxr / 00011_popupControl.ls < prev    next >
Encoding:
Text File  |  2009-06-29  |  730 b   |  24 lines
  1. property gdbId
  2.  
  3. on beginSprite me
  4.   _movie.member("field_entryName").text = EMPTY
  5.   _movie.member("field_entryBody").text = EMPTY
  6. end
  7.  
  8. on refreshPopup me
  9.   if symbolp(gdbId) then
  10.     thisEntry = _global.engine.gdbManager.getEntry(gdbId)
  11.     if thisEntry = #undefined then
  12.       _movie.member("field_entryName").text = "<data not found>"
  13.       _movie.member("field_entryName").color = rgb("#777777")
  14.       _movie.member("field_entryBody").text = EMPTY
  15.     else
  16.       _movie.member("field_entryName").text = thisEntry.itemName
  17.       _movie.member("field_entryName").color = rgb("#CCCCCC")
  18.       sendSprite(3, #parseHyperlinks, thisEntry.itemBody)
  19.       _movie.updateStage()
  20.       sendSprite(4, #refreshPage)
  21.     end if
  22.   end if
  23. end
  24.